(Ca)

K/X(1853)

(Cc)

(Cb)

A construction of the inverse Mimosa transform of X(204)

A = (0.14, -0.44)
B = (7.78, -0.38)
C = (5.851208260501308, 4.762618681755937)
polígono1, c, a, b = Polygon(A, B, C)
X_{20} = TriangleCenter(A, B, C, 20)
X_{64} = TriangleCenter(A, B, C, 64)
polígono2, D, E, F = TrianguloPedal(A, B, C, X_{20})
polígono3, L, M, N = TrianguloPedal(A, B, C, X_{64})
J = Midpoint(A, X_{20})
d = Circle(J, A)
e = Circle(A, B, C)
X_3 = TriangleCenter(A, B, C, 3)
f = Line(J, X_3)
A_1 = Mirror(A, f)
g = Circle(A_1, L, D)
t_a = Tangent(A_1, d)
B_1, t_b = Tangenteta(B, C, A)
C_1, t_c = Tangenteta(C, A, B)
A' = Intersect(t_b, t_c)
C' = Intersect(t_b, t_a)
B' = Intersect(t_a, t_c)
k = Line(A', A)
l = Line(B', B)
m = Line(C, C')
K = Intersect(m, l)
L_1 = Midpoint(B, X_{20})
M_1 = Midpoint(X_{20}, C)
p = Circle(M_1, C)
q = Circle(L_1, B)
polígono4, c', a', b' = Polygon(A', B', C')

Tool: TrianguloETC
Dar el vértice A
Input: A_{etc}
Output: B_{etc}, C_{etc}, a, polígono1

c = Circle(A_{etc}, 13)
B_{etc} = Point(c)
d = Circle(A_{etc}, 9)
e = Circle(B_{etc}, 6)
C_{etc} = Intersect(d, e, 1)
polígono1, c_{etc}, a_{etc}, b_{etc} = Polygon(A_{etc}, B_{etc}, C_{etc})
a = Line(B_{etc}, C_{etc})

Tool: Coordenadas Trilineales (command CoordenadasTrilineales)
Dar los vértices de ABC y un  punto P
Input: A, B, C, P
Output: texto2, CoordTrilineales

q_1 = Segment(B, P)
e = Line(A, C)
E_1 = Intersect(e, q_1)
d = Line(C, B)
p_1 = Segment(A, P)
D_1 = Intersect(d, p_1)
ABC, c, a, b = Polygon(A, B, C)
e_1 = OrthogonalLine(P, a)
D = Intersect(e_1, d)
p = Segment(P, D)
α = If(Defined[D_1], -p, p)
f_1 = OrthogonalLine(P, b)
g = OrthogonalLine(P, c)
f = Line(A, B)
E = Intersect(f_1, e)
F = Intersect(g, f)
r_1 = Segment(P, C)
q = Segment(P, E)
r = Segment(P, F)
F_1 = Intersect(f, r_1)
β = If(Defined[E_1], -q, q)
γ = If(Defined[F_1], -r, r)
CoordTrilineales: {α, β, γ}
texto2: "" + CoordTrilineales + ""

Tool: Triangulo Pedal (command TrianguloPedal)
Dar ABC y P
Input: A, B, C, E
Output: polígono2, F, G, H

polígono1, c, a, b = Polygon(A, B, C)
e = OrthogonalLine(E, a)
f = OrthogonalLine(E, b)
g = OrthogonalLine(E, c)
h = Line(B, C)
i = Line(C, A)
j = Line(A, B)
F = Intersect(e, h)
G = Intersect(i, f)
H = Intersect(j, g)
polígono2, h_1, f_1, g_1 = Polygon(F, G, H)

Tool: Tangente ta (command Tangenteta)
Dar ABC
Input: A, B, C
Output: A', h

X_{20} = TriangleCenter(A, B, C, 20)
J = Midpoint(A, X_{20})
d = Circle(J, A)
X_3 = TriangleCenter(A, B, C, 3)
f = Line(J, X_3)
A' = Mirror(A, f)
h = Tangent(A', d)